home *** CD-ROM | disk | FTP | other *** search
/ The Big Mouth 18 / Big_Mouth_The_18_1998_-_Side_D.d64 / 03- iskee!! (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  35 lines
  1. 5 fori=0to24:poke54272+i,0:next:poke54296,15+16
  2. 6 poke54278,14*16+14:poke54273,3:poke54275,8:poke54276,65
  3. 7 poke54278+7,14*16+14:poke54273+7,3:poke54279,2:poke54275+7,8:poke54276+7,65
  4. 8 poke54295,1+2+15*16*1
  5. 9 poke54294,20
  6. 10 poke53281,0:poke53280,0
  7. 12 print"[147][153]dot tunnel!":poke198,0
  8. 15 dim a$(16):f=0
  9. 20 a$(0)="":fori=1to16:a$(i)=a$(i-1)+"":next
  10. 23 fori=1to350
  11. 24 geta$:ifa$=""thennext
  12. 28 poke56334,0
  13. 100 fori=0to8.37step.2:s=6*sin(i*.75):x=s+11:w=s*1.3+13:v=s*1.6+14:u=s*2+16
  14. 110 t=s*2.4+17:m=2.5*cos(i):r=m+3:q=m*1.2+5:p=m*1.44+6:o=m*1.73+8:n=m*2.07+9
  15. 1005 print"[147]"a$(n)spc(t)"[151][209]":printspc(t)"[209][209]":printspc(t)"[209][209]"
  16. 1010 printspc(t)"[209][209]":printspc(t)"[209]":print""a$(o)spc(u)"[209]"
  17. 1105 printspc(u)"[209][209]":printspc(u)"[209][209]":printspc(u)"[209][209]"
  18. 1112 printspc(u)"[209]":print""a$(p)spc(v)"[152][209]":poke54294,u*2
  19. 1204 printspc(v)"[209][209]":printspc(v)"[209][209]"
  20. 1212 printspc(v)"[209][209]":printspc(v)"[209]"
  21. 1301 print""a$(q)spc(w)"[155][209]":printspc(w)"[209][209]"
  22. 1308 printspc(w)"[209][209]":printspc(w)"[209][209]"
  23. 1315 printspc(w)"[209]":print""a$(r)spc(x)"[209]"
  24. 1402 printspc(x)"[209][209]"
  25. 1408 printspc(x)"[209][209]":printspc(x)"[209][209]"
  26. 1416 printspc(x)"[209]":next
  27. 1500 poke56334,1:fori=1to500:next
  28. 1510 poke53281,5:poke53280,5
  29. 1550 print"[147][153]    hmm... let's check out something"
  30. 1560 print"         more cool...  :) :) :)"
  31. 1570 print"load"chr$(34)"04*"chr$(34)",8:"
  32. 1580 print"run:";
  33. 1600 poke198,2:poke631,13:poke632,13
  34. 2000 end
  35.